dim i
dim fso
dim f
set fso=CreateObject("Scripting.FileSystemObject")

For  i= 1 To 9
set f=fso.getFile(i & i & ".jpg")
	f.name=("" & (i+11) & ".jpg")
Next
